perm filename TAB[CRE,BGB] blob
sn#043262 filedate 1973-05-17 generic text, type T, neo UTF8
COMMENT ⊗ VALID 00003 PAGES
RECORD PAGE DESCRIPTION
00001 00001
00002 00002 TITLE TABLE - TABLE TEST
00003 00003 SA: SPCWAR 0,[CONO 410,0↔DISMIS]
00005 ENDMK
⊗;
TITLE TABLE - TABLE TEST
COMMENT⊗
Run Turn table:
DATAO 500,[speed(5)]
Speed 0 TO 77 turn counter clockwise.
Speed 100 to 176 turn clockwise.
speed 177 stop and lock.
Speed 200 table time out.
Read Turn Table:
DATAI 410,X ;Read Turn Table. 1b18 count invalid bit.
CONO 410,0 ;Reset table count to zero.
;10 arcs of 2000 counts.
⊗
SA: SPCWAR 0,[CONO 410,0↔DISMIS]
LOOP: MOVE 1,[POINT 3,XXXX,17]
SPCWAR'SSW'
ILDB 1↔IORI 60↔OUTCHR
ILDB 1↔IORI 60↔OUTCHR
ILDB 1↔IORI 60↔OUTCHR
ILDB 1↔IORI 60↔OUTCHR
ILDB 1↔IORI 60↔OUTCHR
ILDB 1↔IORI 60↔OUTCHR↔OUTCHR[9]
OUTCHR["*"]↔INCHRW↔OUTCHR[15]↔OUTCHR[12]
SETZM CTRL↔TRZE 200↔SETOM CTRL#
SETZM META↔TRZE 400↔SETOM META#
MOVEI =12↔MOVEM TICKS# ;1 SECOND.
MOVE META↔MOVEM FLG#
MOVEI 1↔SKIPE CTRL↔AOS↔MOVEM SPEED#
SPCWAR 5,SW.JOB
SKIPL TICKS↔JRST .-1
JRST LOOP
SW.JOB: SOSG TICKS↔SETZM SPEED
DATAI 410,XXXX
MOVE 1,SPEED↔ANDI 1,3
SKIPE FLG↔JRST GO.CW
GO.CCW: CONSO 40↔DATAO 500,[177(5)↔020(5)↔040(5)↔060(5)](1)↔DISMIS
GO.CW: CONSO 40↔DATAO 500,[177(5)↔140(5)↔120(5)↔120(5)](1)↔DISMIS
STOP: CONSO 40↔DATAO 500,[177(5)]↔DISMIS
xxxx: 0
END SA